home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / testfiles / TestGraphPaper < prev    next >
Encoding:
Text File  |  2000-05-19  |  1.2 KB  |  42 lines
  1. g <- Graph new  "Graph is in AmigaTalk:User/Graph.st"
  2.  
  3. g initialize: 'TestGraph' winTitle: 'TestGraphPaper'
  4.  
  5. g open: 16r40D20001 from: 0@0 to: 640@480
  6.  
  7. g setXAxisFrom: -10.0  to: 10.0  by: 0.1
  8. g setYAxisFrom: -100.0 to: 100.0 by: 1.0
  9.  
  10. crs <- Colors new: 'TestGraphPaper'
  11.  
  12. crs loadColors: 16 from: 'Amigatalk:AmigaTalk.colors'
  13. crs setWindowColorReg: 1 red: 12 green: 12 blue: 12
  14. crs setWindowColorReg: 2 red: 0  green: 0  blue: 8
  15. crs setWindowColorReg: 3 red: 8  green: 8  blue: 8
  16. crs setWindowColorReg: 4 red: 15 green: 0  blue: 15
  17. crs setWindowColorReg: 5 red: 0  green: 8  blue: 8
  18. crs setWindowColorReg: 6 red: 15 green: 15 blue: 0
  19.  
  20. g  drawGrid: 20 y: 20 color: 2
  21.  
  22. g drawXAxis: 0.0 numTicks: 10 color: 4
  23. g drawYAxis: 0.0 numTicks: 10 color: 6
  24.  
  25. g    setPen: 1
  26.  
  27. g drawLabel: 'y-axis' at: 325@12
  28. g drawLabel: 'x-axis' at: 580@230
  29.  
  30. x1 <- 0.0
  31. y1 <- 0.0
  32.  
  33. (-9.9 to: 10.0 by: 0.1) do: [:x| x1 <- x. y1 <- x * x. g plotPoint: x1 y: y1]
  34.  
  35. g drawLabel: ('range: ', (g range  asString)) at: 500@245
  36. g drawLabel: ('scale: ', (g xScale asString)) at: 500@255
  37.  
  38. g drawLabel: ('domain: ',(g domain asString)) at: 325@24
  39. g drawLabel: ('scale: ', (g yScale asString)) at: 325@36
  40.  
  41. g refreshGraphPaper
  42.